﻿Public Class frmMantenimientoUsuarios

    Dim mUsuarioBS As SistemaCajas.BS.Usuarios
    Private mId As Integer

    Public Property Id() As Integer
        Get
            Return mId
        End Get
        Set(ByVal value As Integer)
            mId = value
        End Set
    End Property



    Public Sub AgregarEstado()
        Dim Estado(1) As String
        Estado(0) = "Habilitado"
        Estado(1) = "Inhabilitado"
        Array.Sort(Estado)
        cbEstado.Items.AddRange(Estado)
        cbEstado.SelectedIndex = 0
    End Sub



    Private Sub frmMantenimientoUsuarios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Refrescar()
        Call AgregarEstado()
    End Sub

    Sub Refrescar()
        Dim mantenimientoBS As SistemaCajas.BS.Usuarios
        mantenimientoBS = New SistemaCajas.BS.Usuarios
        Me.dgvLista.DataSource = mantenimientoBS.Listar()
    End Sub

    Sub FiltrarUsuariosActivos()
        Dim mantenimientoBS As SistemaCajas.BS.Usuarios
        mantenimientoBS = New SistemaCajas.BS.Usuarios
        Me.dgvLista.DataSource = mantenimientoBS.FiltrarUsuariosActivos()
    End Sub

    Sub FiltrarUsuariosInhactivos()
        Dim mantenimientoBS As SistemaCajas.BS.Usuarios
        mantenimientoBS = New SistemaCajas.BS.Usuarios
        Me.dgvLista.DataSource = mantenimientoBS.FiltrarUsuariosInhactivos()
    End Sub

    Sub FiltrarUsuariosIdentificación(ByVal identificacion)
        Dim mantenimientoBS As SistemaCajas.BS.Usuarios
        mantenimientoBS = New SistemaCajas.BS.Usuarios
        Me.dgvLista.DataSource = mantenimientoBS.FiltrarUsuariosIdentificación(identificacion)
    End Sub


    Private Sub BtnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregar.Click
        Dim mantenimiento As AgregarUsuario
        mantenimiento = New AgregarUsuario
        mantenimiento.ShowDialog()
        Refrescar()
    End Sub


    Private Sub BtnRefrezcar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Refrescar()
    End Sub

    Private Sub BtnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEditar.Click

        Dim id As Integer

        If dgvLista.SelectedRows.Count = 1 Then

            Dim dgvRow As DataGridViewRow
            For Each dgvRow In dgvLista.SelectedRows
                id = dgvRow.Cells(0).Value

            Next
            Dim formulario As frmEditarUsuarios
            formulario = New frmEditarUsuarios
            formulario.Id = id
            formulario.ShowDialog()
            Refrescar()
        Else
            MessageBox.Show("Debes seleccionar una fila")
        End If
    End Sub

    Private Sub btnFiltrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFiltrar.Click

        Dim formulario As frmFiltros
        formulario = New frmFiltros

        formulario.ShowDialog()


    End Sub
End Class